(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     20497,        459]
NotebookOptionsPosition[     19836,        431]
NotebookOutlinePosition[     20180,        446]
CellTagsIndexPosition[     20137,        443]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"i", "+", "1"}], ",", 
        RowBox[{"i", "+", "2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "3"}], "}"}]}], "]"}], ",", 
    RowBox[{"ColorFunction", "->", 
     RowBox[{"ColorData", "[", 
      RowBox[{"30", ",", "\"\<ColorList\>\""}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.510355158734375*^9, 3.510355173875*^9}, {
   3.5103552074375*^9, 3.510355238515625*^9}, {3.510355360109375*^9, 
   3.510355362640625*^9}, {3.51035544040625*^9, 3.51035562540625*^9}, {
   3.510355783953125*^9, 3.5103558150625*^9}, 3.5103559069375*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[{{1., 1.}, {2., 2.}, {3., 3.}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], 
    PointBox[{{1., 2.}, {2., 3.}, {3., 4.}}]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], 
    PointBox[{{1., 3.}, {2., 4.}, {3., 5.}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 1.},
  PlotRange->{{0, 3.}, {1., 5.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5103551614375*^9, 3.510355174734375*^9}, {
   3.51035521375*^9, 3.5103552391875*^9}, 3.510355363421875*^9, {
   3.510355448546875*^9, 3.51035552309375*^9}, {3.510355590265625*^9, 
   3.51035562840625*^9}, {3.510355785984375*^9, 3.510355816921875*^9}, 
   3.5103559391875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ColorData", "[", 
   RowBox[{"\"\<Named\>\"", ",", "\"\<ColorList\>\""}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.510355971765625*^9, 3.510355980640625*^9}, {
  3.510356104671875*^9, 3.51035613021875*^9}, {3.51070387134375*^9, 
  3.510703896609375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.65`", ",", "0.7`", ",", "0.7`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.836713`", ",", "1.`", ",", "1.`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.799435`", ",", "0.543572`", ",", "0.997559`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.770565`", ",", "0.964309`", ",", "0.0442359`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1.`", ",", "0.709804`", ",", "0.709804`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.4`", ",", "0.4`", ",", "0.4`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.291989`", ",", "0.437977`", ",", "0.888609`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.800498`", ",", "0.201504`", ",", "0.192061`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.578462`", ",", "0.85539`", ",", "0.408855`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.677263`", ",", "0.928423`", ",", "0.955287`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.658708`", ",", "0.492173`", ",", "0.842842`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.628274`", ",", "0.850553`", ",", "0.0782731`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.8913`", ",", "0.631904`", ",", "0.627399`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.941176`", ",", "0.784314`", ",", "0.627451`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1.`", ",", "0.501961`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.90443`", ",", "0.97015`", ",", "0.13504`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.412698`", ",", "0.932689`", ",", "0.166398`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.546138`", ",", "0.844244`", ",", "0.892092`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.534026`", ",", "0.420729`", ",", "0.705621`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.480072`", ",", "0.744591`", ",", "0.0955222`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.901961`", ",", "0.901961`", ",", "0.901961`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.74902`", ",", "0.760784`", ",", "0.780392`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.65098`", ",", "0.65098`", ",", "0.670588`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.541176`", ",", "0.6`", ",", "0.780392`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.611765`", ",", "0.478431`", ",", "0.780392`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.878431`", ",", "0.4`", ",", "0.2`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.941176`", ",", "0.564706`", ",", "0.627451`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.313725`", ",", "0.815686`", ",", "0.313725`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.784314`", ",", "0.501961`", ",", "0.2`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.490196`", ",", "0.501961`", ",", "0.690196`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.800757`", ",", "0.542666`", ",", "0.533513`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.60508`", ",", "0.632465`", ",", "0.576489`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.741176`", ",", "0.501961`", ",", "0.890196`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.917248`", ",", "0.657833`", ",", "0.0706628`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.58847`", ",", "0.22163`", ",", "0.16064`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.426019`", ",", "0.747462`", ",", "0.810413`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.425391`", ",", "0.329242`", ",", "0.585895`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.325959`", ",", "0.646423`", ",", "0.095983`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.531014`", ",", "1.`", ",", "1.`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.458599`", ",", "0.917466`", ",", "0.918573`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.385036`", ",", "0.834854`", ",", "0.841681`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.310325`", ",", "0.752163`", ",", "0.769323`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.234466`", ",", "0.669394`", ",", "0.701499`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.157459`", ",", "0.586546`", ",", "0.638209`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.0793033`", ",", "0.50362`", ",", "0.579453`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.`", ",", "0.420615`", ",", "0.525231`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.752941`", ",", "0.752941`", ",", "0.752941`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1.`", ",", "0.85098`", ",", "0.560784`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.728371`", ",", "0.440594`", ",", "0.422196`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.39799`", ",", "0.491477`", ",", "0.495586`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.619608`", ",", "0.388235`", ",", "0.709804`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.816706`", ",", "0.451332`", ",", "0.0100947`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.580392`", ",", "0", ",", "0.580392`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.316906`", ",", "0.638078`", ",", "0.710252`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.332803`", ",", "0.217712`", ",", "0.483666`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.165935`", ",", "0.55605`", ",", "0.0796556`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.928084`", ",", "0.716075`", ",", "0.329427`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.894824`", ",", "0.731424`", ",", "0.325131`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.86523`", ",", "0.707999`", ",", "0.315261`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.837836`", ",", "0.662974`", ",", "0.301635`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.811992`", ",", "0.607859`", ",", "0.285626`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.787563`", ",", "0.549894`", ",", "0.268279`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.764628`", ",", "0.493261`", ",", "0.250405`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.743177`", ",", "0.440115`", ",", "0.23269`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.72281`", ",", "0.39143`", ",", "0.215783`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.702434`", ",", "0.347663`", ",", "0.200392`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.679962`", ",", "0.309234`", ",", "0.187368`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.652012`", ",", "0.276823`", ",", "0.17779`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.613603`", ",", "0.251489`", ",", "0.173042`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.557855`", ",", "0.234598`", ",", "0.17489`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.475685`", ",", "0.227573`", ",", "0.18555`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.781537`", ",", "0.717388`", ",", "0.716579`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.734443`", ",", "0.544489`", ",", "0.683471`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.681179`", ",", "0.360409`", ",", "0.63675`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.605181`", ",", "0.367584`", ",", "0.556343`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.521806`", ",", "0.382125`", ",", "0.469204`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.445624`", ",", "0.373159`", ",", "0.399069`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.815686`", ",", "0.815686`", ",", "0.878431`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1.`", ",", "0.819608`", ",", "0.137255`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.721569`", ",", "0.721569`", ",", "0.815686`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.65098`", ",", "0.329412`", ",", "0.301961`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.341176`", ",", "0.34902`", ",", "0.380392`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.619608`", ",", "0.309804`", ",", "0.709804`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.670588`", ",", "0.360784`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.458824`", ",", "0.309804`", ",", "0.270588`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.218799`", ",", "0.516091`", ",", "0.591608`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.25626`", ",", "0.0861372`", ",", "0.398932`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.`", ",", "0.473472`", ",", "0.04654`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.322042`", ",", "0.71693`", ",", "0.988479`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.3608`", ",", "0.67166`", ",", "0.943003`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.397469`", ",", "0.628`", ",", "0.898853`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.43205`", ",", "0.58595`", ",", "0.856029`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.464542`", ",", "0.54551`", ",", "0.814532`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.494945`", ",", "0.506679`", ",", "0.774361`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.52326`", ",", "0.469458`", ",", "0.735517`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.549486`", ",", "0.433847`", ",", "0.697999`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.573624`", ",", "0.399845`", ",", "0.661808`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.595673`", ",", "0.367454`", ",", "0.626942`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.615633`", ",", "0.336672`", ",", "0.593404`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.633505`", ",", "0.307499`", ",", "0.561191`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.649288`", ",", "0.279937`", ",", "0.530305`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.662982`", ",", "0.253984`", ",", "0.500746`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.674588`", ",", "0.22964`", ",", "0.472513`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.684106`", ",", "0.206907`", ",", "0.445606`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.691534`", ",", "0.185783`", ",", "0.420025`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.696874`", ",", "0.166269`", ",", "0.395772`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.700126`", ",", "0.148365`", ",", "0.372844`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.701289`", ",", "0.13207`", ",", "0.351243`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.700363`", ",", "0.117385`", ",", "0.330968`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.697348`", ",", "0.10431`", ",", "0.31202`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.692245`", ",", "0.0928444`", ",", "0.294398`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.685054`", ",", "0.0829886`", ",", "0.278102`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.675773`", ",", "0.0747426`", ",", "0.263133`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.664405`", ",", "0.0681063`", ",", "0.249491`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.650947`", ",", "0.0630797`", ",", "0.237174`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.635401`", ",", "0.0596628`", ",", "0.226184`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.635401`", ",", "0.0596628`", ",", "0.226184`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.635401`", ",", "0.0596628`", ",", "0.226184`"}], "]"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.510355976046875*^9, 3.510355980859375*^9}, {
  3.51035610625*^9, 3.51035613240625*^9}, {3.510703873359375*^9, 
  3.510703897328125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"cc", "=", 
   RowBox[{"ColorData", "[", 
    RowBox[{"3", ",", "\"\<ColorList\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"ListPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "i"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"100", ",", "i"}], "}"}]}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"cc", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}]}], ",", 
      RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", "cc", "]"}]}], "}"}]}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.51035621321875*^9, 3.510356217796875*^9}, {
  3.510356261296875*^9, 3.510356262328125*^9}, {3.510356327796875*^9, 
  3.510356329703125*^9}, {3.510356400734375*^9, 3.510356421546875*^9}, {
  3.510356468984375*^9, 3.51035647909375*^9}, {3.51035654096875*^9, 
  3.51035654684375*^9}, {3.51070444425*^9, 3.51070445665625*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0., 0., 0.], Thickness[Large], LineBox[{{0., 1.}, {100., 1.}}]}, 
   {RGBColor[0.996078431372549, 0.3607843137254902, 0.027450980392156862`], 
    Thickness[Large], LineBox[{{0., 2.}, {100., 2.}}]}, 
   {RGBColor[0.996078431372549, 0.9882352941176471, 0.03529411764705882], 
    Thickness[Large], LineBox[{{0., 3.}, {100., 3.}}]}, 
   {RGBColor[0.5411764705882353, 0.7137254901960784, 0.027450980392156862`], 
    Thickness[Large], LineBox[{{0., 4.}, {100., 4.}}]}, 
   {RGBColor[0.1450980392156863, 0.43529411764705883`, 0.3843137254901961], 
    Thickness[Large], LineBox[{{0., 5.}, {100., 5.}}]}, 
   {RGBColor[0.00784313725490196, 0.5098039215686274, 0.9294117647058824], 
    Thickness[Large], LineBox[{{0., 6.}, {100., 6.}}]}, 
   {RGBColor[
    0.15294117647058825`, 0.11372549019607843`, 0.49019607843137253`], 
    Thickness[Large], LineBox[{{0., 7.}, {100., 7.}}]}, 
   {RGBColor[0.47058823529411764`, 0.2627450980392157, 0.5843137254901961], 
    Thickness[Large], LineBox[{{0., 8.}, {100., 8.}}]}, 
   {RGBColor[0.8901960784313725, 0.011764705882352941`, 0.49019607843137253`],
     Thickness[Large], LineBox[{{0., 9.}, {100., 9.}}]}, 
   {RGBColor[0.9058823529411765, 0.027450980392156862`, 0.12941176470588237`],
     Thickness[Large], LineBox[{{0., 10.}, {100., 10.}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.5107044525*^9, 3.510704456890625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.510356281875*^9, 3.51035630428125*^9}, 
   3.5107044379375*^9}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.24720000000000017`, 0.24, 0.6], Thickness[Large], 
    LineBox[{{0., 1.}, {100., 1.}}]}, 
   {RGBColor[0.6, 0.24, 0.4428931686004542], Thickness[Large], 
    LineBox[{{0., 2.}, {100., 2.}}]}, 
   {RGBColor[0.6, 0.5470136627990908, 0.24], Thickness[Large], 
    LineBox[{{0., 3.}, {100., 3.}}]}, 
   {RGBColor[0.24, 0.6, 0.33692049419863584`], Thickness[Large], 
    LineBox[{{0., 4.}, {100., 4.}}]}, 
   {RGBColor[0.24, 0.35317267440181815`, 0.6], Thickness[Large], 
    LineBox[{{0., 5.}, {100., 5.}}]}, 
   {RGBColor[0.6, 0.24, 0.5632658430022721], Thickness[Large], 
    LineBox[{{0., 6.}, {100., 6.}}]}, 
   {RGBColor[0.6, 0.4266409883972719, 0.24], Thickness[Large], 
    LineBox[{{0., 7.}, {100., 7.}}]}, 
   {RGBColor[0.2634521802031821, 0.6, 0.24], Thickness[Large], 
    LineBox[{{0., 8.}, {100., 8.}}]}, 
   {RGBColor[0.24, 0.47354534880363613`, 0.6], Thickness[Large], 
    LineBox[{{0., 9.}, {100., 9.}}]}, 
   {RGBColor[0.5163614825959097, 0.24, 0.6], Thickness[Large], 
    LineBox[{{0., 10.}, {100., 10.}}]}, 
   {RGBColor[0.6, 0.3062683139954558, 0.24], Thickness[Large], 
    LineBox[{{0., 11.}, {100., 11.}}]}, 
   {RGBColor[0.3838248546049982, 0.6, 0.24], Thickness[Large], 
    LineBox[{{0., 12.}, {100., 12.}}]}, 
   {RGBColor[0.24, 0.5939180232054561, 0.6], Thickness[Large], 
    LineBox[{{0., 13.}, {100., 13.}}]}, 
   {RGBColor[0.3959888081940937, 0.24, 0.6], Thickness[Large], 
    LineBox[{{0., 14.}, {100., 14.}}]}, 
   {RGBColor[0.6, 0.24, 0.2941043604063603], Thickness[Large], 
    LineBox[{{0., 15.}, {100., 15.}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.510356335234375*^9, 3.510356347078125*^9}, {
   3.510356403671875*^9, 3.510356548125*^9}, 3.51070393334375*^9, {
   3.5107039790625*^9, 3.510704005546875*^9}, {3.510704050390625*^9, 
   3.510704095984375*^9}}]
}, Open  ]]
},
WindowSize->{708, 719},
WindowMargins->{{Automatic, 143}, {Automatic, 9}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 753, 18, 94, "Input"],
Cell[1335, 42, 812, 19, 300, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2184, 66, 327, 7, 39, "Input"],
Cell[2514, 75, 12444, 242, 2964, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14995, 322, 1180, 30, 148, "Input"],
Cell[16178, 354, 1527, 26, 291, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17742, 385, 112, 2, 39, "Input"],
Cell[17857, 389, 1963, 39, 291, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
